BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / System 7 / Frontier / RevertDICT.sit / RevertDICT.rsrc / scpt_128 < prev next >
Unknown | 1993-07-05 | 1.5 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	TrID	DEGAS med-res bitmap	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 fe 00 02 00 00 | 00 90 00 00 05 26 00 0a |........|.....&..|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 01 00 00 |........|........|
|00000040| 00 00 06 54 00 00 a6 15 | ab e0 a8 5e 08 50 00 00 |...T....|...^.P..|
|00000050| 00 38 80 00 00 8d 00 03 | 01 7d 02 7d 00 00 00 00 |.8......|.}.}....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 69 66 20 73 |........|....if s|
|00000080| 79 73 74 65 6d 2e 64 72 | 6f 70 6c 65 74 2e 63 6c |ystem.dr|oplet.cl|
|00000090| 6f 73 65 64 6f 77 6e 0d | 09 64 65 6c 65 74 65 28 |osedown.|.delete(|
|000000a0| 40 73 63 72 61 74 63 68 | 70 61 64 2e 74 65 6d 70 |@scratch|pad.temp|
|000000b0| 44 69 63 74 29 0d 09 66 | 69 6e 64 65 72 2e 62 72 |Dict)..f|inder.br|
|000000c0| 69 6e 67 54 6f 46 72 6f | 6e 74 28 29 0d 0d 69 74 |ingToFro|nt()..it|
|000000d0| 73 61 50 6f 63 6b 65 74 | 46 6f 72 74 68 41 70 70 |saPocket|ForthApp|
|000000e0| 6c 20 3d 20 28 66 69 6c | 65 2e 74 79 70 65 28 73 |l = (fil|e.type(s|
|000000f0| 79 73 74 65 6d 2e 64 72 | 6f 70 6c 65 74 2e 70 61 |ystem.dr|oplet.pa|
|00000100| 74 68 29 20 3d 3d 20 27 | 41 50 50 4c 27 29 20 61 |th) == '|APPL') a|
|00000110| 6e 64 20 72 65 7a 2e 63 | 6f 75 6e 74 52 65 73 6f |nd rez.c|ountReso|
|00000120| 75 72 63 65 73 28 73 79 | 73 74 65 6d 2e 64 72 6f |urces(sy|stem.dro|
|00000130| 70 6c 65 74 2e 70 61 74 | 68 2c 27 44 49 43 54 27 |plet.pat|h,'DICT'|
|00000140| 29 0d 70 6f 63 6b 65 74 | 46 6f 72 74 68 49 73 52 |).pocket|ForthIsR|
|00000150| 65 61 64 79 20 3d 20 66 | 69 6c 65 2e 65 78 69 73 |eady = f|ile.exis|
|00000160| 74 73 28 70 66 2e 61 70 | 70 69 6e 66 6f 2e 70 61 |ts(pf.ap|pinfo.pa|
|00000170| 74 68 29 0d 0d 69 66 20 | 66 69 6c 65 2e 65 78 69 |th)..if |file.exi|
|00000180| 73 74 73 20 28 73 79 73 | 74 65 6d 2e 64 72 6f 70 |sts (sys|tem.drop|
|00000190| 6c 65 74 2e 70 61 74 68 | 29 0d 09 69 66 20 66 69 |let.path|)..if fi|
|000001a0| 6c 65 2e 66 69 6c 65 46 | 72 6f 6d 50 61 74 68 28 |le.fileF|romPath(|
|000001b0| 73 79 73 74 65 6d 2e 64 | 72 6f 70 6c 65 74 2e 70 |system.d|roplet.p|
|000001c0| 61 74 68 29 20 3d 3d 20 | 22 50 6f 63 6b 65 74 20 |ath) == |"Pocket |
|000001d0| 46 6f 72 74 68 22 20 20 | 20 20 20 20 20 20 20 c7 |Forth"  |       .|
|000001e0| 20 71 75 65 73 74 69 6f | 6e 20 72 65 76 65 72 74 | questio|n revert|
|000001f0| 69 6e 67 20 50 6f 63 6b | 65 74 20 46 6f 72 74 68 |ing Pock|et Forth|
|00000200| 20 6f 72 69 67 6f 6e 61 | 6c 0d 09 09 69 66 20 6e | origona|l...if n|
|00000210| 6f 74 20 64 69 61 6c 6f | 67 2e 63 6f 6e 66 69 72 |ot dialo|g.confir|
|00000220| 6d 28 22 41 72 65 20 79 | 6f 75 20 73 75 72 65 20 |m("Are y|ou sure |
|00000230| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 72 65 76 65 |you want| to reve|
|00000240| 72 74 20 50 6f 63 6b 65 | 74 20 46 6f 72 74 68 3f |rt Pocke|t Forth?|
|00000250| 22 29 0d 09 09 09 72 65 | 74 75 72 6e 20 28 66 61 |")....re|turn (fa|
|00000260| 6c 73 65 29 0d 09 69 66 | 20 28 69 74 73 61 50 6f |lse)..if| (itsaPo|
|00000270| 63 6b 65 74 46 6f 72 74 | 68 41 70 70 6c 20 61 6e |cketFort|hAppl an|
|00000280| 64 20 70 6f 63 6b 65 74 | 46 6f 72 74 68 49 73 52 |d pocket|ForthIsR|
|00000290| 65 61 64 79 29 20 20 20 | 20 20 20 20 20 20 20 20 |eady)   |        |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 c7 20 72 65 |        |    . re|
|000002b0| 76 65 72 74 20 69 74 21 | 0d 09 09 72 65 7a 2e 67 |vert it!|...rez.g|
|000002c0| 65 74 52 65 73 6f 75 72 | 63 65 28 70 66 2e 61 70 |etResour|ce(pf.ap|
|000002d0| 70 69 6e 66 6f 2e 70 61 | 74 68 2c 27 44 49 43 54 |pinfo.pa|th,'DICT|
|000002e0| 27 2c 32 35 37 2c 40 73 | 63 72 61 74 63 68 70 61 |',257,@s|cratchpa|
|000002f0| 64 2e 74 65 6d 70 44 69 | 63 74 29 0d 09 09 72 65 |d.tempDi|ct)...re|
|00000300| 7a 2e 70 75 74 52 65 73 | 6f 75 72 63 65 28 73 79 |z.putRes|ource(sy|
|00000310| 73 74 65 6d 2e 64 72 6f | 70 6c 65 74 2e 70 61 74 |stem.dro|plet.pat|
|00000320| 68 2c 27 44 49 43 54 27 | 2c 20 32 35 37 2c 40 73 |h,'DICT'|, 257,@s|
|00000330| 63 72 61 74 63 68 70 61 | 64 2e 74 65 6d 70 44 69 |cratchpa|d.tempDi|
|00000340| 63 74 29 0d 09 09 64 69 | 61 6c 6f 67 2e 61 6c 65 |ct)...di|alog.ale|
|00000350| 72 74 28 22 54 68 65 20 | 44 49 43 54 20 72 65 73 |rt("The |DICT res|
|00000360| 6f 75 72 63 65 20 6f 66 | 20 22 2b 66 69 6c 65 2e |ource of| "+file.|
|00000370| 66 69 6c 65 46 72 6f 6d | 50 61 74 68 28 73 79 73 |fileFrom|Path(sys|
|00000380| 74 65 6d 2e 64 72 6f 70 | 6c 65 74 2e 70 61 74 68 |tem.drop|let.path|
|00000390| 29 2b 22 20 68 61 73 20 | 62 65 65 6e 20 72 65 76 |)+" has |been rev|
|000003a0| 65 72 74 65 64 20 74 6f | 20 69 74 73 20 6f 72 69 |erted to| its ori|
|000003b0| 67 69 6e 61 6c 20 73 74 | 61 74 65 2e 22 29 0d 09 |ginal st|ate.")..|
|000003c0| 09 6d 73 67 28 66 69 6c | 65 2e 66 69 6c 65 46 72 |.msg(fil|e.fileFr|
|000003d0| 6f 6d 50 61 74 68 28 73 | 79 73 74 65 6d 2e 64 72 |omPath(s|ystem.dr|
|000003e0| 6f 70 6c 65 74 2e 70 61 | 74 68 29 2b 22 20 68 61 |oplet.pa|th)+" ha|
|000003f0| 73 20 62 65 65 6e 20 72 | 65 76 65 72 74 65 64 2e |s been r|everted.|
|00000400| 22 29 0d 09 09 72 65 74 | 75 72 6e 20 28 74 72 75 |")...ret|urn (tru|
|00000410| 65 29 0d 09 65 6c 73 65 | 20 20 20 20 20 20 20 20 |e)..else|        |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000470| 20 20 20 20 20 c7 20 64 | 6f 6e 27 74 20 72 65 76 |     . d|on't rev|
|00000480| 65 72 74 20 61 6e 64 20 | 73 61 79 20 77 68 79 2e |ert and |say why.|
|00000490| 0d 09 09 69 66 20 69 74 | 73 61 50 6f 63 6b 65 74 |...if it|saPocket|
|000004a0| 46 6f 72 74 68 41 70 70 | 6c 20 3d 3d 20 66 61 6c |ForthApp|l == fal|
|000004b0| 73 65 0d 09 09 09 64 69 | 61 6c 6f 67 2e 61 6c 65 |se....di|alog.ale|
|000004c0| 72 74 28 22 54 68 65 20 | 66 69 6c 65 20 22 2b 66 |rt("The |file "+f|
|000004d0| 69 6c 65 2e 66 69 6c 65 | 46 72 6f 6d 50 61 74 68 |ile.file|FromPath|
|000004e0| 28 73 79 73 74 65 6d 2e | 64 72 6f 70 6c 65 74 2e |(system.|droplet.|
|000004f0| 70 61 74 68 29 2b 22 20 | 6e 65 65 64 73 20 74 6f |path)+" |needs to|
|00000500| 20 62 65 20 61 20 50 6f | 63 6b 65 74 20 46 6f 72 | be a Po|cket For|
|00000510| 74 68 20 70 72 6f 67 72 | 61 6d 20 61 6e 64 20 74 |th progr|am and t|
|00000520| 68 65 20 70 66 20 76 65 | 72 62 73 20 6d 75 73 74 |he pf ve|rbs must|
|00000530| 20 62 65 20 69 6e 73 74 | 61 6c 6c 65 64 2e 22 29 | be inst|alled.")|
|00000540| 0d 09 09 09 72 65 74 75 | 72 6e 20 66 61 6c 73 65 |....retu|rn false|
|00000550| 0d 09 09 65 6c 73 65 0d | 09 09 09 64 69 61 6c 6f |...else.|...dialo|
|00000560| 67 2e 61 6c 65 72 74 28 | 22 53 6f 72 72 79 2c 20 |g.alert(|"Sorry, |
|00000570| 63 61 6e d4 74 20 66 69 | 6e 64 20 22 2b 70 66 2e |can.t fi|nd "+pf.|
|00000580| 61 70 70 69 6e 66 6f 2e | 70 61 74 68 2b 22 2e 22 |appinfo.|path+"."|
|00000590| 29 0d 09 09 09 72 65 74 | 75 72 6e 20 66 61 6c 73 |)....ret|urn fals|
|000005a0| 65 0d 80 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e.......|........|
|000005b0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000005c0| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|000005d0| 00 00 80 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000005f0| 80 00 00 00 00 00 80 00 | 00 00 00 00 84 00 00 00 |........|........|
|00000600| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+